home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
rbbs_pc
/
173amrg.zip
/
CNFG173A.MRG
< prev
next >
Wrap
Text File
|
1990-08-26
|
31KB
|
650 lines
* ------------[ BLED merge (c) Ken Goosens ]-------------
* Merge this against D:\172B\CONFIG.BAS to produce CONFIG.BAS
* D:\172B\CONFIG.BAS: Date 2-10-1990 Size 153303 bytes
* ------------[ Created 08-26-1990 11:34:19 ]------------
* REPLACING old line(s) by new
' $linesize: 132
* ------[ first line different ]------
' $title: 'CONFIG 17.3A, Copyright 1983-90 by D. Thomas Mack' ' DA081003
' WARNING !!! DO NOT CHANGE, BYPASS OR REMOVE LINE 10000-10230
* REPLACING old line(s) by new
* ------[ first line different ]------
10000 ' CONFIG.BAS (RBBS-PC VERSION 17.3A) ' DA081003
' by D.Thomas Mack
' The Second Ring
' 39 Cranbury Dr.
' Trumbull, CT. 06611
'
' *******************************NOTICE**********************************
' * A limited license is granted to all users of this program and it's *
' * companion program, RBBS-PC (ver. 17.3A), to make copies of this *
' * program and distribute the copies to other users, on the following *
' * conditions *
' * 1. The copyright notices contained within this program are not *
' * altered, bypassed, or removed. *
' * 2. The program is not to be disrtibuted to others in modified *
' * form (i.e. the line numbers must remain the same). *
' * 3. No fee is charged (or any other consideration received) *
' * for coping or distributing these programs without an express *
' * written agreement with D. Thomas Mack, The Second Ring, *
' * 39 Cranbury Dr., Trumbul, CT. 06611 *
' * *
' * Copyright (c) 1983-1990 D. Thomas Mack, The Second Ring *
' ***********************************************************************
' $INCLUDE: 'CNFG-VAR.BAS'
CLEAR
'
' ****************************************************************************
' * DISPLAY THE CONFIG TITLE PAGE
' ****************************************************************************
'
WIDTH 80
CLS
NOT.YET.IN$ = "[Not Implemented]" ' Msg used in config for parm not yet implemented
NONE.PICKED$ = "<none>" ' Standardized message
NUM.FILES = 8
NUM.GLOBAL = 4
NUM.MAIN = 18
NUM.SYSOP = 7
NUM.UTILITY = 12
NUM.LIBRARY = 7
VERSION.NUMBER$ = "17.3A"
I! = FRE(C$)
KEY OFF
CALL CNFGINIT
PRINT TAB(60)"tm"
PRINT TAB(16) STRING$(15,205)" U S E R W A R E "STRING$(15,205)
PRINT
PRINT TAB(17)"Capital PC User Group User-Supported Software"
PRINT
X$ = " "
PRINT "Copyright (c) 1983-1990 D. Thomas Mack, 39 Cranbury Dr., Trumbull, CT. 06611"
PRINT
PRINT X$;" If you use RBBS-PC " + CONFIG.VERSION$ + " and find"
PRINT X$;" it valuable, consider contributing to"
PRINT ""
PRINT X$;" Capital PC Software Exchange"
PRINT X$;" Post Office Box 6128"
PRINT X$;" Silver Spring, Maryland 20906"
PRINT
PRINT X$;" You are free to copy and share RBBS-PC provided"
PRINT X$;" 1. This program is not distributed in modified form."
PRINT X$;" 2. No fee or consideration is charged for RBBS-PC itself."
* REPLACING old line(s) by new
12160 KEY OFF
'
' * IF A MESSAGE FILE EXISTS, READ IN THE PARAMETERS IN IT.
'
FILE$ = MAIN.MESSAGE.FILE$
GOSUB 30000
NO.OLD.FILE = FALSE
IF OKAY THEN _ ' IF MESSAGE FILE EXISTS, READ CHECKPOINT RECORD
GOTO 12170
NO.OLD.FILE = TRUE
A$ = "Message file " + MAIN.MESSAGE.FILE$ + " not found. Create new one"
CALL GETNUMYN (A$,AB)
IF NOT AB THEN _
* ------[ first line different ]------
IF CONFERENCE.MODE > 0 THEN _ ' DA082501
MAIN.MESSAGE.FILE$ = MAINMSG$ : _ ' DA082501
MAIN.USER.FILE$ = MAINUSR$ : _ ' DA082501
GOTO 12151 _ ' DA082501
ELSE _ ' DA082501
SYSTEM ' DA082501
CALLS.TODATE! = 0 ' FIRST MSG# -- 0
FIRST.USER.RECORD = 1 ' USERS file -- first record number
CURRENT.USER.COUNT = FIRST.USER.RECORD ' USERS file -- next available record number
HIGHEST.USER.RECORD = MAX.USR.FILE.SIZE.FRM.DEF ' USERS file -- last record number
FIRST.MESSAGE.RECORD = 2+MAXIMUM.NUMBER.OF.NODES ' MESSAGES file -- first record of messages
NEXT.MESSAGE.RECORD = FIRST.MESSAGE.RECORD ' MESSAGES file -- next available record number
HIGHEST.MESSAGE.RECORD = 5 * MAX.ALLOWED.MSGS.FRM.DEF _
+ 1 _
+ MAXIMUM.NUMBER.OF.NODES ' MESSAGES file -- last record number
MAXIMUM.NUMBER.OF.MSGS = MAX.ALLOWED.MSGS.FRM.DEF ' MESSAGES file -- maximum number of messages
B1 = MAXIMUM.NUMBER.OF.NODES
B3! = HIGHEST.MESSAGE.RECORD
GOSUB 22080
GOSUB 30450 ' UPDATE CHECKPOINT RECORD
* REPLACING old line(s) by new
13228 A$ = ""
* ------[ first line different ]------
IF INSTR(USER.INIT.COMMAND$,"S0=") = 0 THEN _ ' DA080503
USER.INIT.COMMAND$ = USER.INIT.COMMAND$ + "S0=001" ' DA080503
* REPLACING old line(s) by new
13229 CALL GETINIT ("How many rings should RBBS-PC wait before answering? ",24,0,255,REQUIRED.RINGS,CR)
IF CR THEN _
GOTO 13229
IF REQUIRED.RINGS = 0 THEN _
* ------[ first line different ]------
MID$(USER.INIT.COMMAND$,INSTR(USER.INIT.COMMAND$,"S0=") + 3,3) = "001" ' DA080503
RETURN
* REPLACING old line(s) by new
13235 IF REQUIRED.RINGS > 5 THEN _
A$ = "(<6 for ringback)" : _
GOTO 13229
* ------[ first line different ]------
MID$(USER.INIT.COMMAND$,INSTR(USER.INIT.COMMAND$,"S0=") + 3,3) = "255" ' DA080503
RETURN
* REPLACING old line(s) by new
* ------[ first line different ]------
13237 MID$(USER.INIT.COMMAND$,INSTR(USER.INIT.COMMAND$,"S0=") + 3,3) = "254" ' DA080503
RETURN
* REPLACING old line(s) by new
14815 GOSUB 15200
QUES.PATH$ = HJ$
RETURN
'
* ------[ first line different ]------
' * PREFIX FOR FOR FOUR MAJOR 'HELP' FILES ' KG081402
'
* REPLACING old line(s) by new
14820 GOSUB 14970
IF LEN(HJ$) > 7 THEN _
RETURN
HELP.FILE.PREFIX$ = HJ$
* ------[ first line different ]------
HELP$(3) = HELP.FILE.PREFIX$ + "3" ' KG081402
HELP$(4) = HELP.FILE.PREFIX$ + "4" ' KG081402
HELP$(7) = HELP.FILE.PREFIX$ + "7" ' KG081402
HELP$(9) = HELP.FILE.PREFIX$ + "9" ' KG081402
RETURN
'
' * NAME OF 'NEWUSER' FILE
'
* REPLACING old line(s) by new
14845 CALL ASKRO ("Extension for compressed files",24,HJ$)
* ------[ first line different ]------
IF LEN(HJ$) > 3 THEN _ ' KG080101
GOTO 14845
CALL ALLCAPS (HJ$)
DEFAULT.EXTENSION$ = HJ$
RETURN
'
' * NAME OF 'FILE DIRECTORY' FILE'S EXTENSION
'
* REPLACING old line(s) by new
14980 CALL ASKRO ("Specify name of the file for parameter " + X$ + ".",24,HJ$)
CALL ALLCAPS (HJ$)
IF LEN(HJ$) < 1 OR LEN(HJ$) > 12 THEN _
GOTO 14980
L1 = INSTR(HJ$,".")
IF L1 = 0 THEN _
* ------[ first line different ]------
IF LEN(HJ$) < 9 THEN _ ' KG081403
GOTO 15045 _ ' KG081403
ELSE GOTO 14980 ' KG081403
IF L1 > 9 THEN _
GOTO 14980
IF L1 < 2 THEN _
GOTO 14980
IF LEN(HJ$) - L1 > 3 THEN _
GOTO 14980
* REPLACING old line(s) by new
* ------[ first line different ]------
15250 CALL MMINTEGER ("# seconds to delay prior to issuing modem commands (1 to 99)?",1,99,MODEM.COMMAND.DELAY.TIME) ' KG072902
RETURN
* REPLACING old line(s) by new
15460 GOSUB 17340
MAIN.MESSAGE.FILE$ = HJ$
* ------[ first line different ]------
CALL BRKFNAME (HJ$,X1$,X2$,X3$,TRUE) ' DA082104
MAIN.MESSAGE.BACKUP$ = X1$ + X2$ + ".BAK" ' DA082104
MAINMSG$ = MAIN.MESSAGE.FILE$
RETURN
'
' * DETERMINE THE NAME OF THE "CALLERS" FILE
'
* REPLACING old line(s) by new
15710 CLS
GOSUB 15780
PRINT " Currently Specified Modem Commands are:"
PRINT
PRINT " Note: '{' means embed carriage return '~' means delay 1 sec"
PRINT
PRINT "1. Reset the modem : " + USER.RESET.COMMAND$
PRINT ""
PRINT "2. Initialize the modem : " + USER.INIT.COMMAND$
* ------[ first line different ]------
PRINT " Note: Item 2 MUST contain one of the following:" ' DA080503
PRINT " S0=001 (to answer on 0 rings)" ' DA080503
PRINT " S0=254 (to answer on >0 rings, no ring-back)" ' DA080503
PRINT " S0=255 (to answer on >0 rings, with ring-back"
PRINT ""
PRINT "3. Count the number of rings : " + USER.COUNT.RINGS.COMMAND$
PRINT ""
PRINT "4. Answer the phone : " + USER.ANSWER.COMMAND$
PRINT ""
PRINT "5. Take the phone off the hook : " + USER.GO.OFFHOOK.COMMAND$
PRINT ""
PRINT "6. Clear the modem's firmware : " + USER.FIRMWARE.CLEAR.CMND$
PRINT ""
PRINT "7. Initialize modem's firmware : " + USER.INITIALIZE.COMMAND$ ' DA080503
PRINT ""
PRINT "8. Write to modem's firmware : " + USER.FIRMWARE.WRITE.CMND$
CALL GETINIT ("Command to change (1 to 8), CR to end, or 0 to reset to defaults",24,0,8,I,CR)
IF CR THEN _
RETURN
IF I <> 0 THEN _
GOTO 15711
GOSUB 15790
GOTO 15710
* REPLACING old line(s) by new
* ------[ first line different ]------
15790 CALL SELMODEM ' DA080503
RETURN
* REPLACING old line(s) by new
15862 A$ = "File extension for macro files (3 chars required)"
CALL ASKRO (A$,24,MACRO.EXTENSION$)
IF LEN(MACRO.EXTENSION$) <> 3 THEN _
GOTO 15862
* ------[ first line different ]------
CALL ALLCAPS(MACRO.EXTENSION$) ' DA082105
RETURN
* REPLACING old line(s) by new
16128 IF FOSSIL OR B1! < 38400 THEN _
GOTO 16129
CLS
LOCATE 5,13
PRINT "38400 available only with FOSSIL driver"
LOCATE 6,10
PRINT "First set communications port and fossil driver"
CALL ASKRO (" INITIAL BAUD RATE not changed. Press [ENTER] to continue",10,ANS$)
* ------[ first line different ]------
RETURN
* REPLACING old line(s) by new
* ------[ first line different ]------
17280 CALL ASKRO("Name of file shown for security breaches (prefix ONLY)",24,HJ$) ' KG030301
IF LEN(HJ$) > 8 OR INSTR(HJ$,".") > 0 THEN _
GOTO 17280
IF LEN(HJ$) < 1 THEN _
SECVIO.HLP$ = NONE.PICKED$ : _
RETURN
CALL ALLCAPS (HJ$)
SECVIO.HLP$ = HELP.PATH$ + HJ$ + "." + HELP.EXTENSION$
RETURN
* REPLACING old line(s) by new
18102 IF START.INDIV = 0 OR LEN.INDIV = 0 THEN_
INDIV.ID$ = NONE.PICKED$ _
ELSE INDIV.ID$ = "(nonstandard)"
START.WRITE = START.INDIV
* ------[ first line different ]------
LEN.WRITE = LEN.INDIV ' KG060103
GOSUB 17805
IF NOT OK THEN _
START.INDIV = 0 : _
LEN.INDIV = 31 : _
GOTO 18102
START.WRITE = START.INDIV
RETURN
* REPLACING old line(s) by new
22340 LOCATE 22,1
PRINT SPACE$(15) + _
TIME$ + _
" " + _
SPACE$(64);
LOCATE 22,35
COLOR 0,7
PRINT " Reading Data, Wait a sec !!! ";
* ------[ first line different ]------
COLOR FG,BG,BORDER ' KG073103
* INSERTING new line(s)
22342 RETURN ' KG073103
'
' * BEFORE EXITING, ASK USER IF HE WANTS TO WRITE OUT THE CHANGES OR QUIT
'
* REPLACING old line(s) by new
* ------[ first line different ]------
22350 CALL ASKRO ("Save changes? Y)es & exit, N)o - reedit, Q)uit don't save (Y,N,Q)",24,HJ$) ' KG080902
IF LEN(HJ$) < 1 OR LEN(HJ$) > 4 THEN _
GOTO 22350 ' KG081001
CALL ALLCAPS (HJ$)
AB = INSTR("NYQ",LEFT$(HJ$,1)) ' KG080903
ON AB GOTO 12190,59000,60360 ' KG081001
GOTO 22350 ' KG081001
'
' * ASK THE USER WHICH RBBS-PC.DEF FILE CONFIG IS TO WORK WITH
'
* DELETING old line(s)
22380
22470
* REPLACING old line(s) by new
* ------[ first line different ]------
23610 I = LOC(1) + VAL(MID$(MESSAGE.RECORD$,117,4)) - 1 ' KG072802
RETURN
'
' * REPAIR THE MESSAGES FILE
'
* REPLACING old line(s) by new
23731 LOCATE 25,5
COMPORT% = VAL(RIGHT$(COM.PORT$,1)) -1
IF COMPORT% < 0 THEN _
PRINT "COM port cannot be set while using COM0" : _
DELAY! = FNTI! + 3 : _
GOSUB 60440 : _
* ------[ first line different ]------
RETURN
FOS.BUF$ = SPACE$(80) ' DA080502
CLS ' DA080502
PRINT "Setting modem firmware for RBBS-PC on " + COM.PORT$ ' DA080502
IF NOT FOSSIL THEN _ ' DA080502
GOTO 23732 ' DA080502
CALL FOSINIT(COMPORT%,RESULT%) ' DA080502
IF RESULT% = -1 THEN _ ' DA080502
PRINT "ERROR initializing FOSSIL. Firmware reset aborted." : _ ' DA080502
GOTO 23736 ' DA080502
CALL FOSSPEED(COMPORT%,2400, 2, 3, 1) ' DA080502
STATE% = 1 ' DA080502
CALL FOSDTR(COMPORT%,STATE%) ' DA080502
GOTO 23733 ' DA081002
* REPLACING old line(s) by new
* ------[ first line different ]------
23732 OUT MODEM.CONTROL.REGISTER,&H0 ' DA080501
OUT LINE.CONTROL.REGISTER - 1,&H6 ' DA080501
OPEN COM.PORT$ + ":2400,N,8,1,CD,DS" AS #3 ' DA080502
* INSERTING new line(s)
23733 A$ = USER.FIRMWARE.CLEAR.CMND$ ' Clear to factory defaults ' DA080502
GOSUB 23736 ' DA080502
A$ = USER.INITIALIZE.COMMAND$ ' set up RBBS-PC config ' DA080502
GOSUB 23736 ' DA080502
A$ = USER.FIRMWARE.WRITE.CMND$ ' Write changes to NVRam ' DA080502
GOSUB 23736 ' DA080502
IF FOSSIL THEN _ ' DA080502
STATE% = 0 : _ ' DA080502
CALL FOSDTR(COMPORT%,STATE%) : _ ' DA080502
CALL FOSEXIT(COMPORT%) : _ ' DA080502
ELSE CLOSE #3 ' DA080502
PRINT "Press a key to continue" ' DA080502
WHILE INKEY$ = "" : WEND ' DA080502
RETURN ' DA080502
' ' DA080502
' * ROUTINE TO SEND/RECEIVE DATA FROM MODEM ' DA080502
' ' DA080502
* DELETING old line(s)
23734
* REPLACING old line(s) by new
* ------[ first line different ]------
23736 PRINT "Send:" ' DA080502
WHILE INSTR(A$, "{") ' DA080502
MID$(A$, INSTR(A$,"{"), 1) = CHR$(13) ' DA081005
WEND ' DA080502
WHILE INSTR(A$, "~") ' DA080502
WAIT.FOUND = INSTR(A$,"~") ' DA080502
TEMP.A$ = MID$(A$, WAIT.FOUND + 1) ' DA080502
A$ = LEFT$(A$, WAIT.FOUND - 1) ' DA080502
GOSUB 23739 ' DA080502
DELAY! = FNTI! + 1 ' DA080502
GOSUB 60440 ' DA080502
A$ = TEMP.A$ ' DA080502
WEND ' DA080502
A$ = A$ + CHR$(13) ' DA081005
GOSUB 23739 ' DA080502
DELAY! = FNTI! + 3 ' DA080502
GOSUB 60440 ' DA080502
PRINT "Receive:" ' DA080502
IF NOT FOSSIL THEN _ ' DA080502
GOTO 23738 ' DA080503
FOS.LEN% = 80 ' DA080503
CALL FOSREAD(COMPORT%, FOS.LEN%, FOS.BUF$) ' DA080502
PRINT LEFT$(FOS.BUF$,FOS.LEN%) ' DA080503
RETURN ' DA080502
* INSERTING new line(s)
23738 WHILE LOC(3) > 1 ' DA080502
INPUT #3, A$ ' DA080502
PRINT A$ ' DA080502
WEND ' DA080502
RETURN ' DA080502
* REPLACING old line(s) by new
* ------[ first line different ]------
23739 PRINT A$; ' DA080502
IF NOT FOSSIL THEN_ ' DA080502
PRINT #3, A$; _ ' DA080502
ELSE _ ' DA080502
CALL FOSWRITE(COMPORT%,LEN(A$),A$) ' DA080502
RETURN ' DA080502
'
' * ROUTINE TO RENUMBER THE MESSAGE FILE
'
* REPLACING old line(s) by new
* ------[ first line different ]------
23750 REDIM MSG.XREF(MAXIMUM.NUMBER.OF.MSGS,2) ' KG072801
MSG.XREF.INDX = 0 ' dd062790
B1 = CALLS.TODATE! ' dd062790
CALL GETINIT ("Renumber starting with OLD message # (<" + _
STR$(CALLS.TODATE! + 1) + _
")",24,1,B1,RE,CR)
IF CR THEN _
RETURN
* REPLACING old line(s) by new
* ------[ first line different ]------
23900 A$ = "Reset last message read for all users" ' dd062790
GOSUB 22580
* REPLACING old line(s) by new
23905 GOSUB 24020
GOSUB 24025
A! = HIGHEST.USER.RECORD
* ------[ first line different ]------
XX$ = "Resetting Last Msg Read by User. Processing Record #" ' dd062790
GOSUB 50345
FOR J = 1 TO A!
GET 1,J
LOCATE 24,X
PRINT J;
HASH.VALUE$ = MID$(USER.RECORD$,START.HASH,LEN.HASH)
LSET COMP.USER$ = HASH.VALUE$
IF ASC(HASH.VALUE$) = 0 OR _
COMP.USER$ = NEW.USER$ OR _
COMP.USER$ = EMPTY.USER$ THEN _
GOTO 23955
FORMER.LAST.MSG = CVI(MID$(USER.OPTIONS$,3,2)) ' dd062790
MSG.XREF.INDX = 1 ' KG072801
* INSERTING new line(s)
23906 IF MSG.XREF.INDX > MAXIMUM.NUMBER.OF.MSGS THEN _ ' KG072801
GOTO 23907 ' KG072801
IF FORMER.LAST.MSG = MSG.XREF(MSG.XREF.INDX,1) THEN _ ' dd062790
NEW.LAST.MSG = MSG.XREF(MSG.XREF.INDX,2) : _ ' dd062790
GOTO 23907 ' KG072801
IF FORMER.LAST.MSG < MSG.XREF(MSG.XREF.INDX,1) THEN _ ' dd062790
NEW.LAST.MSG = MSG.XREF(MSG.XREF.INDX - 1,2) : _ ' dd062790
GOTO 23907 ' KG072801
MSG.XREF.INDX = MSG.XREF.INDX + 1 ' KG072801
GOTO 23906 ' KG072801
23907 IF FORMER.LAST.MSG = 0 THEN NEW.LAST.MSG = 0 ' KG072801
MID$(USER.OPTIONS$,3,2) = MKI$(NEW.LAST.MSG) ' dd062790
PUT 1,J
* REPLACING old line(s) by new
24010 LOCATE 24,15
PRINT "Msg #" ; MID$(MESSAGE.RECORD$,1,5);
* ------[ first line different ]------
CURRENT.MSG.NUMBER = VAL(MID$(MESSAGE.RECORD$,2,4)) ' dd062790
IF CURRENT.MSG.NUMBER < RE THEN _ ' dd062790
PRINT " read"; : _
MSG.XREF.INDX = MSG.XREF.INDX + 1 : _ ' dd062790
MSG.XREF(MSG.XREF.INDX, 1) = CURRENT.MSG.NUMBER : _ ' dd062790
MSG.XREF(MSG.XREF.INDX, 2) = CURRENT.MSG.NUMBER : _ ' dd062790
RETURN
Y$ = MID$(MESSAGE.RECORD$,1,1)
MID$(MESSAGE.RECORD$,1,5) = SPACE$(5)
NE = NE + 1
MID$(MESSAGE.RECORD$,1,5) = STR$(NE)
MID$(MESSAGE.RECORD$,1,1) = Y$
PRINT " renumbered as Msg #" + MID$(MESSAGE.RECORD$,1,5)
PUT 1,I
MSG.XREF.INDX = MSG.XREF.INDX + 1 ' dd062790
MSG.XREF(MSG.XREF.INDX, 1) = CURRENT.MSG.NUMBER ' dd062790
MSG.XREF(MSG.XREF.INDX, 2) = NE ' dd062790
RETURN
'
' * ROUTINE TO PACK THE USERS FILE
'
* REPLACING old line(s) by new
24800 CLS
I! = FRE(C$)
COLOR 0,7,0
LOCATE 1,10
* ------[ first line different ]------
PRINT "RBBS-PC Default Configuration " + CONFIG.VERSION$; ' DA081003
IF CONFERENCE.MODE THEN _
GOSUB 24970
COLOR FG,BG,BORDER
PRINT " Page" + STR$(DISPLAYED.PAGE.NUMBER) + " of" + STR$(MAXIMUM.DISPLAYABLE.PAGES)
RETURN
'
' * ROUTINE TO DISPLAY CONFERENCE MAINTENANCE MODE IN CONFIG'S DISPLAYS
'
* REPLACING old line(s) by new
24970 LOCATE 2,1
PRINT SPACE$(10)
* ------[ first line different ]------
LOCATE 2,10 ' KG062303
COLOR 31,0,0
PRINT "(Conference Maintenance Mode for " + _ ' KG062303
ZConfName$ + _ ' KG062303
")"; ' KG062303
RETURN
'
' * COMMON SUBROUTINE TO DISPLAY ACTIVITY WHEN PACKING/PURGING FILES
'
* REPLACING old line(s) by new
25050 CALL ASKRO ("Enter the name of the conference (7 characters or less) ",24,HJ$)
IF LEN(HJ$) < 1 OR LEN(HJ$) > 7 THEN _
GOTO 25040
CALL ALLCAPS (HJ$)
* ------[ first line different ]------
ZConfName$ = HJ$ ' KG062302
CP$ = HJ$
* REPLACING old line(s) by new
* ------[ first line different ]------
25090 CALL BRKFNAME (MAINMSG$,X1$,X2$,X3$,TRUE) ' DA082102
FILE$ = X1$ + CP$ + "M.DEF" ' DA082102
MAIN.MESSAGE.FILE$ = FILE$ ' DA082501
GOSUB 30000 ' DA082501
IF OKAY THEN _ ' DA082501
GOTO 25100 ' DA082501
CALL BRKFNAME (CONFERENCE.MENU$,X1$,X2$,X3$,TRUE) ' DA082501
FILE$ = X1$ + CP$ + "M.DEF" ' DA082501
GOSUB 30000 ' DA082501
IF OKAY THEN _ ' DA082501
MAIN.MESSAGE.FILE$ = FILE$ ' DA082501
* INSERTING new line(s)
25100 CALL BRKFNAME (MAINUSR$,X1$,X2$,X3$,TRUE) ' DA082501
FILE$ = X1$ + CP$ + "U.DEF" ' DA082501
MAIN.USER.FILE$ = FILE$ ' DA082501
GOSUB 30000 ' DA082501
IF OKAY THEN _ ' DA082501
GOTO 25160 ' DA082501
FILE$ = CP$ + "U.DEF" ' KG082501
GOSUB 30000 ' DA082501
IF OKAY THEN _ ' DA082501
MAIN.USER.FILE$ = FILE$ : _ ' DA082501
GOTO 25160 ' DA082501
* REPLACING old line(s) by new
* ------[ first line different ]------
25142 CALL GETNUMYN ("Make a user's file for this conference?",AB) ' KG082501
IF AB THEN _
GOTO 25160
* REPLACING old line(s) by new
25144 CONFERENCE.MODE = 2
* ------[ first line different ]------
MAIN.USER.FILE$ = MAINUSR$ ' DA082501
GOTO 25170
* REPLACING old line(s) by new
* ------[ first line different ]------
25160 CONFERENCE.MODE = 1 ' DA082501
UG = 0
* REPLACING old line(s) by new
26080 CALL GETINIT ("Select network mail type (0 to 5, CR to end)",24,0,5,AB,CR)
* ------[ first line different ]------
NET.MAIL$ = NONE.PICKED$ ' KG080301
IF AB = 1 THEN _
NET.MAIL$ = "SeaDog"
IF AB = 2 THEN _
NET.MAIL$ = "BINKLEY TERM"
RETURN
* REPLACING old line(s) by new
* ------[ first line different ]------
31040 LSET RR$ = " 0 " + _ ' NUMBER OF LAST MESSAGE ' DA061001
MKI$(0) + _ ' SECURITY LEVEL TO AUTO-ADD USER
SPACE$(116) + _ ' BLANKS IN ALL OTHER FIELDS
RIGHT$("0"+MID$(STR$(MAXIMUM.NUMBER.OF.NODES),2),2)
RETURN
'
' * COMMON SUBROUTINE TO CREATE A BLANK "NODE" RECORD IN THE MESSAGE FILE
'
* REPLACING old line(s) by new
59080 CLOSE #1
'
' * NOTIFY THE SYSOP THAT THE CONFIGURATION DESCRIPTION FILE HAS BEEN WRITTEN
'
CLS
LOCATE 12,1,1
* ------[ first line different ]------
PRINT "Saved RBBS-PC configuration description file " ; CONFIG.FILENAME$ ' KG080904
GOTO 60340 ' DA081006
'
' * CONFIG.BAS'S ERROR ROUTINES
'
* REPLACING old line(s) by new
60010 '* HANDLE ERROR CONDITIONS *
IF ERR = 62 AND _
(ERL = 11600 OR _
ERL = 11620 OR _
ERL = 11640 OR _
ERL = 11660 OR _
ERL = 11680 OR _
ERL = 11700 OR _
ERL = 11705 OR _
ERL = 11706) THEN _
PRINT CONFIG.FILENAME$ + _
" from a version earlier than " + CONFIG.VERSION$ + " on default drive." : _
PRINT "Please delete and rerun CONFIG." : _
RESUME 60340
IF ERL = 15780 AND ERR = 5 AND _
INSTR(USER.INIT.COMMAND$,"S0=") = 0 THEN _
RESUME 16073
* ------[ first line different ]------
IF ERL = 22340 THEN _ ' KG073103
RESUME 22342 ' KG073103
IF ERL = 31000 AND ERR = 58 THEN _
KILL A$ : _
RESUME 31000
IF ERL = 31030 AND ERR = 58 THEN _
KILL A$ : _
RESUME 31030
IF ERL = 22120 AND ERR = 6 THEN _
RESUME 22100
IF ERL = 24750 AND ERR = 58 THEN _
KILL A$ : _
RESUME 24750
IF ERL = 31020 THEN _
PRINT "Unable to kill ";MAIN.MESSAGE.FILE$;". Error";STR$(ERR):_
RESUME 31035
IF ERL = 50490 AND ERR = 58 THEN _
RESUME 50500
IF ERL = 50540 AND ERR = 58 THEN _
RESUME 50550
IF ERL = 50490 OR ERL = 50540 THEN _
RESUME 15230
IF ERL = 60471 THEN _
IF ERR <> 76 THEN _
RESUME 60478 _
ELSE RESUME 60474
IF ERL = 60480 THEN _
PRINT "ERROR -";ERR;" UNABLE TO CREATE SUBDIRECTORY" : _
RESUME 60478
IF ERR = 61 THEN _
PRINT "ERROR - IBM DOS DISKETTE FULL " : _
RESUME 60340
IF ERR = 67 THEN _
PRINT "ERROR - IBM DOS DIRECTORY FULL" : _
RESUME 60340
IF ERR = 70 THEN _
PRINT "DISKETTE IN DRIVE IS WRITE PROTECTED" : _
RESUME 60340
IF ERR = 71 THEN _
PRINT "DRIVE DOOR OPEN OR MISSING DISKETTE" : _
RESUME 60340
IF ERR = 72 THEN _
PRINT "ERROR - UNFORMATTED IBM DOS DISKETTE IN DRIVE" : _
RESUME 60340
PRINT "+++ Error";ERR;" in line ";ERL "occurred at " TIME$ " on " DATE$